﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%

	dim urls,rs,sql,meili
Set Rs = Server.CreateObject("Adodb.Recordset")
        urls=Request.QueryString("urls")
        if urls="" then urls="index.asp"

		if sid<>"Null" then
                namer=session("username")
		Sql = "select [meili] from [qingtian_user] where [name]='"&namer&"'"
		Rs.Open Sql,conn,1,1
		if not (rs.bof and rs.eof)  then                
                meili=rs("meili")
                end if
                Rs.close
                set rs=nothing
select case v
case "0"
we0="<br/>"
hr="-------------------<br/>"
%>
<card title="我的魅力"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
%>
<title>我的魅力</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%

End Select
        qingtian.info
%>		
<%=qingtian.qingsav("343")%>
<%=dao%>==我的魅力==<%=we0%><%=we%>
你现在的魅力值:<%=zi%><%=meili%><%=zi0%><br/>

魅力越高说明你越受网友欢迎,可以通过朋友之间的互相送礼增加魅力<br/><a href="fans.asp?sid=<%=sidd%>">送礼给朋友</a>.<a href="shangchen.asp?sid=<%=sidd%>">购买礼物</a><%=we0%><%=hr%>
<%=qingtian.qingsav("345")%><%=sou%><a href="chuwu.asp?sid=<%=sidd%>">我的物品</a>|<a href="shangchen.asp?sid=<%=sidd%>">商场</a>|<a href="index.asp?sid=<%=sidd%>">地盘</a><%=we0%>                                      
<%

else
Response.Redirect "/login.asp?sid=" & sidd & "&url=/user/mymeili.asp?sid="&sidd&"@@urls="&urls
end if

end Function
%>
